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MODULE BASSMOVE ( 


4 
1984 00:46:53 -VAK#11 BLiss-32 v6.0-742 p ' 
ser 1obe Shishiot || LasAT Obke sez emtue asec oF ti 
! 
IDENT = "1-006" i 
) ez 


oo 
wn 


i File: BASMOVE.B32 EDIT:FM1006 


we 


PERE EEESILILI CIES ETE T TT TTC Tce cirri cei r icici titi ii ii iii iiiiii 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

® 

® 

* 

7 

4 ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * 

:# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 

* 
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!® TRANSFERRED. 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ePokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'= DIGITAL ASSUMES NO RESPONS i 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH 
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WIN $9 ODNAUNE WR HOOBNAUE WN (OO ONOU EW 


00 + 

itt FACILITY: BASIC-PLUS-2 Miscellaneous 1/0 

0035 ABSTRACT: 
5 0035 i This module contains the routines called by compiled code 
$ ie for the MOVE FROM and MOVE TO statements. 
3 0038 ENVIRONMENT: VAX-11 User Mode 
40 9040 ; AUTHOR: John Sauter, CREATION DATE: 21-MAY-1979 
4¢ 0048 : MODIFIED BY: 
44 64 i 1-001 - Original, ; 
45 045 ! 1-002 - Call BASS$$CB_GET, so gets module goes not have to be in the 
“6 Boag ! sharable Library. JBS 22-AUG-1979 
4 047 ! 1-003 - Reverse the order of arguments to BASSMOVE BEG. JBS 04-SEP-1979 
48 0048 ' 1-004 = Add move TO ang MOVE_FROM entry points, which we will split later. 
49 0049 ! JBS 30-Nov-1979 
50 50 ! 1-005 - Channel zero should translate to the appropriate BASIC LUN (BASS$K_LUN_INPU). 
51 51 $ galt it an error if user gatis with a negative channel, at the same 
3g 3 i time add 2 to Lub$Sk_ilun_min to force bas$$cb_push to signal an 

5 : error if \~ -7 or -8 afe being pushed, the Tater is a enperery 
He Boee } fee for #0 syntax in BASIC until the standard comm. decides on the 
‘ ssue 

36 0056 i 1-006 = Undo 5. We can now do 1/0 to #0 because BASSPUT will use foreign 
5 005 i buffer mechanism to do PUTs to #6. FM 9-JUL~81. 
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BASSMOVE 1b-se -1984 7:46:53 AX-11 Bliss-32 V4.0-742 Pa 3 
12-808-19be 90:38:33 BASRTL.SRC JBASMOVE .832;1 - (2) 
63 1 ' 
| o7 § : SWITCHES: 
| ° 
| 65 
| 68 5 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
re : LINKAGES 
0 i i 
71 9 
g 7 REQUIRE "RTLIN:OTSLNK'; ! Define Linkages 
74 3 : 
8 } TABLE OF CONTENTS: 
77 ‘ 
78 FORWARD ROUTINE 


BASSMOVE BEG : NOVALUE, 


Start of MOVE statement 
BASSMOVE_END : NOVALUE; 


End of MOVE statement 


LEER 


a a a a a a at ed et ts ss a ts bs 2 a cn ts ss a 


: INCLUDE FILES: 


oS 
<3 


~_ 
~o 
COQOCCCOOCOCOCoOooO 


eS SSSSSeoo 
oD 


REQUIRE ‘RTLML:OTSLUB'; 
REQUIRE "RTLML:OTSISB'; 
REQUIRE *RTLIN:RTLPSECT’; 
LIBRARY *RTLSTARLE'; 


Get LUB definitions 
Get ISB definitions 


Mana 


Macros for defining psects 


System symbols 


80 

81 

Hi $ 

84 1 

85 

B6 

ns! 

89 0832 

90 8 

91 0918 

92 0919 

93 0920 

94 0921 ! 

99 09 ¢ i MACROS: 

97 0924 i NONE 

98 09 5 i 

3 09 6 : EQUATED SYMBOLS: 
194 $958 : 

108 0909 GLOBAL BIND 

10 0930 ROUT INE 

104 0931 BASSMOVE_TO = BASSMOVE_BEG; 
198 0938 GLOBAL BIND 

107 934 ROUT INE 

108 0935 BASSMOVE_FROM = BASSMOVE_BEG; 
110 $939 ' 

111 093 i PSECTS: 

11@ 095 i 

AS bg DECLARE _PSECTS (BAS); ! Declare psects for BASS facility 
115 948 OWN STORAGE: 

We 944 i NONE 

118 0945 i 


K 4 

ASSMOVE 16-Sep-1 AX-11 Bliss-32 V 742 P 4 
; 1ergee=198e F938:37 | HaNSAT Osaefekenbue asses ~~ ai 
: 119 a6 1 ! EXTERNAL REFERENCES: 
: 189 ae 
: 4 j 368 1 care ROUTIN 
=e baee 1 t+ UBUSH : JSB_CB_PUSH NOVALUE, ' Load register CCB 
3 124 2) 1 POP : JSB_CB_POP NOVALUE, ! Done with register CCB 
: 125 09 ¢ 1 tte GET : JSB°CB_GET NOVALUE, ' Load current CCB 
: 126 0953 (1 BASSSSTOP : NOVALOE , ' Signal fatal error 
s Yer 0954 «(1 BASSSSTOP_IO : NOVALUE , ' Signal fatal 1/0 error 
3 1s8 58 : BASSSOPEN-ZERO : NOVALUE; ! OPEN channel 
 % 957 1! 
$ ; 0356 : ; The following are the error codes used in this module. 
4 0960 1 
. 0961 1 EXTERNAL LITERAL 
s 135 3494 1 BASSK_PROLOSSOR : UNSIGNED (8), ! Program lost, sorry 
. ¥ 0963 1 BAS$K_10_CHANOT : UNSIGNED (ee ! 1/0 channel not open 
: 137 0964 1 BASSK_ ILCIO_ CHA : UNSIGNED (8); ! Illegal 1/0 channel 
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14-Sep-1984 BASRTL.SRCIJBASMOVE .832;1 (3) 
GLOBAL ROUTINE BASSMOVE_BEG ( ! Start of MOVE statement 
DESC, ' Descriptor of buffer 


) : NOVALUE = ! Channel to start MOVE on 


ee 


FUNCTAONAL DESCRIPTION: 


Start a MOVE statement on the specified channel. We do this 
by returning a descriptor of the buffer, which the compiled 
code will use when accessing the 1/0 buffer. 


! FORMAL PARAMETERS: 


DESC.wa.r Descriptor of the 1/0 buffer 
UNIT. rl.v The channel whose buffer descriptor to return. 


IMPLICIT INPUTS: 


The LUBSW_RBUF SIZE field of the LUB of the specified channel. 
Also, LUBSA_RBOF_ADR. 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
nals if an error is encountered. 


Si 
BASSS$CB_PUSH will signal if the channel number is invalid. 
Leaves the channel active. 


BEGIN 
BUILTIN FP; 
GLOBAL REGISTER 

CCB = K_CCB_REG : REF BLOCK C, BYTE); 
MAP 

DESC : REF BLOCK (8, BYTE); 


CAL 
FMP : REF BLOCK C, BYTE), 
ACTUAL_UNIT; 


'¢ 


Store away FP 
FMP = .FP; 


mM 4 
pas eve 1er8ee=}38e 99:88:33 = PAXSAT Ok tesa ze hea $2, 


—_ 


3 10 : 

; 13 18 § ! If the unit is zero, use oe appropriate unit for input side of channel 0. 
> 198 1024 2 i Load register cB with a pointer to the LUB/ISB/RAB for the channel. 
; +4 3 5 ignal an invalid channel number. 

: 201 1059 3° IF _(.UNIT LSS 0) THEN BASSS$STOP(BAS$K_ILLIO_ CHA); 

; O¢ 18 3 ACTUAL_UNIT = (IF .UNIT EQL 0 THEN LUBSK_LUR_INPU ELSE .UNIT); 

: 204 1030 BASSSCB_PUSH (.ACTUAL_UNIT, LUBSK_ILUN_MIN); 

; 05 1031 ,, OCB CISBSA_USER_FP] =". FMP CSFSL_SAVE_FPJ; 

: sof 1038 If the channel number is zero, make sure it is open. 

: 209 1035 3 ° IF ( NOT .CCBCLUBSV_OPENED) ) 

: sf 1039 ; en 

: 212 1038 IF (.ACTUAL_UNIT EQL LUBSK_LUN_INPU) 

i Se 1020 § THEN BEGIN 

> 215 1041 3 BASSSOPEN_ZERO(.FMPLSFSL_SAVE_FPJ) 

; 216 1048 3 END 

$18 idee : _ BEGIN 

3 219 1045 3 BASS$STOP_10(BASSK_10_CHANOT); 

: 220 1046 2 END; 

Bo 

; $$? ed § ; Mark this as a MOVE statement. 

: 225 1051 2 ° CCB CISBSB_STTM_TYPE) = ISBSK_ST_TY_MOV; 

: 559 1083 3 t4 

; $58 1938 2 Return the caller a descriptor of the buffer. 

: 230 1056 5 "DESC COSCSW_LENGTH] = .CCB CLUBS$W_RBUF_SIZE]; 

; 231 1057 2 DESC CDSC$SB-DTYPE] = DSCSK_DTYPE_7; 

> 232 1058 2 DESC CDSC$B~CLASS] = DSCSK CLASS $; 

; 933 1059 é ,, DESC CDSCSAPOINTER] = .CCB CLUBSA_RBUF _ADR); 

> 235 1061 ¢ i ALL done. 

. oe ee 

: 238 ioee f END; ! end of BASSMOVE_BEG 


TLE BASSMOVE 
ENT \1-006\ 


T 
I 
EXTRN BASSS$CB_PUSH, BAS$$CB_POP 
“EXTRN BAS$$CB GET 

EXTRN BASS$STOP_10, BASS$SOPEN_ZERO 
EXTRN BASS$K_PROCOSSOR 

EXTRN BASS$K~10_CHANOT 

-EXTRN BASSK-ILCIO_CHA 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


McLig:- Pea aur wR ——__—_—_———- 


BASSMOVE 16-Sep-1984 00:46:53 AX-11 Bliss-32 V4.0-742 Page 
| 12=308- 1 3c 90:28:33 EBASRTL SRE IBASMOVE -B5241 ° 
53 5D D0 0000 MOVL FP, FMP : 
5 08 AC D6 000 MOVL unit, R2 ; 
7E 006 BE On SpooR SCVZBL #BASSK_ILLIO.CHA, *(SP) : 
000000006 00 1 FB OO00F CALLS #1, BASS$$STOP : 
: D 0016 1$: ij, Sea : 
: 1 001 BNEQ 2 : 
52 7 CE OOO1A MNEGL #7, ACTUAL_UNIT : 
5 6 cE 90010 2$: MNEGL : 
000000006 16 00020 JSB BAS$SCB_PUSH : 
FF4C CB oC A 09 90 6 MOVL 12(FMP)> =180(CCB) : 
20 FC AB EB 0002C BLBS  -4(CCB); : 
FEFFFFF9  8F 52 D1 00030 CMPL § ACTUAL_UNIT, #-7 : 
O¢ 12 00037 BNEQ 3$ : 
0c A3 DD 00059 PUSHL 12(FMP) : 
000000006 00 01 FB 0003C CALLS #1, BASS$SOPEN_ZERO : 
0B 11 00043 BRB 4$ : 
7E 006 8F 9A 00045 38: MOVZBL #BASS$K_I0_CHANOT, (SP) : 
000000006 00 01 FB 00049 CALLS #1, BASS$$STOP_ IO F 
FF71 CB 2E 90 00050 4$: MOVE #46, -143(CCBY : 
50 AC DO 00055 MOVL DESC, RO ; 
60 D2 AB BO 00059 MOVW =46(CCB), (RO) : 
02 Ad 0100 8F BO 0005D MOVW #256 ; 
04 AO EC AB 00 00063 MOVL =20(€CB), 4(RO) : 
04 00068 RET : 
3; Routine Size: 105 bytes, Routine Base: _BASS$CODE + 0000 
; 239 1065 1 
PO ee tes at fs 
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GLOBAL ROUTINE BASSMOVE_END 
: NOVALUE = 


"FUNCTIONAL DESCRIPTION: 
End a MOVE statement. 
a CLOSE. 
FORMAL PARAMETERS: 
NONE . 
IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
COMPLETION CODES: 


pope fo felofelololeolololelololeololeloleoeleoleolololelolo) 
30 O09 0009 09 09 09 09 09 09 09 SISIN SIS NI NINN NIAAA Oo 


CNAME WN SO ODONAUES WN O OONAU EWN OOO NOUS WN OOONIO 


ee ee ee ee eee SS 


OTSS$A_CUR_LUB, the current logical unit. 
doing a MOVE statement. 


5 
16-Sep-1984 90:46:35 rest Blis 
14-Sep-1984 11:55:21 BASRTL.SRC 
! End of MOVE statement 


This is needed so we know when all uses 


of the 1/0 buffer are done, so we can release the buffer after 


This had better be 


Give 


If we ignored this condition, the following 


ist. 


4 NONE 

89 SIDE EFFECTS: 

09 Signals if there is no current I/0, or if the current 1/0 
44 is not a MOVE statement. 

09 - 

10 

+ BEGIN 

10 GLOBAL REGISTER 

\° CCB = K_CCB_LREG : REF BLOCK C, BYTE); 

\° BASS$CB_GET (); 

198 IF (.CCB EQL 0) THEN BASSSSTOP (BASS$K_PROLOSSOR) ; 

110 + 

111 ! The channel might not be open due to a CLOSE at AST level. 

116 ! an_error in this case. 1 t f 

11 : GET or PUT would give the error, so we might as well give it as 
‘8 soon as possible. 

1146 2. 

4 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$$STOP_IO (BAS$K_IO_CHANOT); 
119 '¢ 

120 ! If the channel is not doing a MOVE statement we have a serious 
is) problem, probably a wild branch into the 1/0 L 


j 


=32 V4.0-742 
BASMOVE .B32;1 


Page 


(4) 


[~ 


—E 


5 
_ BASSMOVE 1b-se 1984 00:46:53 AX-11 Bliss-32 V4.0-742 Page 
1-006 a teaets 9588: 33 EBASRTL SREIBASMOVE BS2s1 . 
+ 298 1123 2 
| +4 13 ¢ IF (.CCB CISBSB_STTM_TYPE] NEQ ISBSK_ST_TY_MOV) THEN BAS$SSTOP_IO (BASS$K_PROLO(SSOR); 
: 301 11 ‘4 
: 1 ? If all those tests succeed, pop the I/0 system. 
: 304 1129 BASSS$CB_POP (); 
4 05 1130 ‘ 
: 06 1131 ' ALL done. 
is 307 11 ¢ § '- 
|; 308 113 RETURN 
; 309 1134 «1 END; ! end of BASSMOVE_END 
0804 00000 -ENTRY BASSMOVE_END, Save R2,R11 3 
52 00000000G 00 9€ 00002 MOVAB BASS$$STOP_10, R2 $ 
000000006 00 16 00009 JSB BASS$$CB_GET 3 
58 C5 0000F TSTL 3 
0B 12 00011 BNEQ 1$ ; 
7E 00G 8F 9A 00013 MOVZBL #BAS$K_PROLOSSOR, -(SP) : 
000000006 00 01 FB 00017 CALLS #1, BASS$S$STOP 3 
07 FC AB €8 OOOIE 1$: LBS - 2s $ 
7E 00G BF 9A 00022 MOVZBL #BAS$K_{0 CHANOT, -(SP) : 
62 01 FB 00026 CALLS #1, BASSSSTOP_IO é 
2E FF71 CB 91 9009 2s: CMPB) ss =143(CCB), #48 : 
07 13 O002E BEQL $ : 
7E 00G 8F 9A 00030 MOVZBL #BASS$K_PROLOSSOR, -(SP) : 
62 01 FB 00034 CALLS #1, BASS$STOP_IO 3 
00000000G 00 16 00037 3$: JSB BASS$$CB_POP 3 
04 00030 RET : 
; Routine Size: 62 bytes, Routine Base: _BASSCODE + 0069 
; 310 1135 «#1 
s Sti 1156 1 END ! end of module BASSMOVE 
, wie 1137 1 
; 313 1138 O ELUDOM 
BASSMOVE_FROM== BASSMOVE _BEG 
BASSMOVE _T0== BASSMOVE ~BEG 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _BASSCODE 167 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC,ALIGN(2) 


c--- 


18 5 
Soe — 00:66:57 YANG OL isg- 32 v4 205742, 


Library Statistics 


; : ssaesese SyROlG corecce ne Pages Processing 

: File Total ireiea Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 7 0 581 00:01.2 

: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASMOVE/OBJ=OBJ$:BASMOVE MSRC$:BASMOVE/UPDATE=(ENH$:BASMOVE ) 
Size: 167 code + 0 data bytes 
Run Time: 3 


Elapsed Time: xt 26.9 
Lines/CPU Min: 661 
Lexemes/CPU-Min: 38985 
meet | Used: 127 pages 
Compilation Complete 
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